home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / fish / 726-750 / 746 / kcommodity / rexx / crevision.ced < prev    next >
Text File  |  1995-03-18  |  733b  |  45 lines
  1. /*
  2.     Revises a `C' source code
  3.     The default Port of KCommodity is assumed to be KComm.1.
  4.     This script was written for CygnusED II Pro, but I think it can
  5.     be easily ported to other editors having an ARexx-Port.
  6.  
  7.     Written by : Kai Iske
  8.              Brucknerstrasse 18
  9.              6450 Hanau 1
  10.              GERMANY
  11.              Tel.: +49-(0)6181-850181
  12.  
  13.     THIS SCRIPT IS PUBLIC DOMAIN
  14. */
  15.  
  16. OPTIONS RESULTS
  17. ADDRESS 'rexx_ced'
  18.  
  19.  
  20. STATUS 20
  21. Path = RESULT
  22. IF Path ~= '' THEN
  23. DO
  24.     change current directory Path
  25.     IF (right(Path, 1) ~= ':') & (right(Path, 1) ~= '/') THEN
  26.         Path = Path || '/'
  27. END
  28.  
  29. SAVE
  30.  
  31.  
  32. STATUS 21
  33. filename = RESULT
  34. RevName = Path || filename
  35.  
  36.  
  37. OPTIONS RESULTS
  38. ADDRESS 'KComm.1' REVISE RevName C
  39. RevDone = RESULT
  40.  
  41. cedtofront
  42. IF RevDone = 1 THEN
  43.     open filename
  44. exit
  45.